﻿Public Class masrhgroup
    Private rhgroupID = Nothing
    Private rhgroupDesc = Nothing
    Private rhgroupStatus = Nothing
    Private selectMasrhgroup = "SELECT `rhgroup` as 'รหัสเลือด RH', `rhgroupdesc` as 'กลุ่มเลือด RH',`status` as 'สถานะการเปิดใช้งาน' FROM masrhgroup"
    Dim connect As CONDB = CONDB.NewConnection()
    'Dim connectlocal As conlocal = conlocal.NewConnection

    Property rhgroupID_ As Integer
        Get
            Return rhgroupID
        End Get
        Set(value As Integer)
            rhgroupID = value
        End Set
    End Property

    Property rhgroupDesc_ As String
        Get
            Return rhgroupDesc
        End Get
        Set(value As String)
            rhgroupDesc = value
        End Set
    End Property

    Property rhgroupStatus_ As Boolean
        Get
            Return rhgroupStatus
        End Get
        Set(value As Boolean)
            If value = True Then
                rhgroupStatus = 1
            Else
                rhgroupStatus = 0
            End If
        End Set
    End Property

    Property selectMasrhgroup_ As String
        Get
            Return selectMasrhgroup
        End Get
        Set(value As String)

        End Set
    End Property

    Public Sub insertMasrhgroupData()
        If rhgroupDesc <> "" Then
            If TypeOf rhgroupDesc Is String Then
                If connect.GetTable("SELECT rhgroupdesc FROM masrhgroup WHERE rhgroupdesc = '" & rhgroupDesc & "'").Rows.Count > 0 Then
                    MsgBox("มีข้อมูลรหัส rhgroup นี้อยู่ในระบบแล้ว")
                Else
                    Try
                        connect = CONDB.NewConnection()
                        'connectlocal = conlocal.NewConnection()
                        Dim rhgroupID As Integer

                        rhgroupID = connect.ExecuteScalar("INSERT INTO masrhgroup (rhgroupdesc, status) VALUES ('" & rhgroupDesc & "', '" & rhgroupStatus & "'); SELECT LAST_INSERT_ID();")
                        'connectlocal.ExecuteNonQuery("INSERT INTO MASRHGROUP (RHGROUP, RHGROUPDESC, STATUS) VALUES ('" & rhgroupID & "', '" & rhgroupDesc & "', '" & rhgroupStatus & "')")
                        MsgBox("ท่านได้ทำการเพิ่มข้อมูลหมู่เลือด RH เรียบร้อยแล้ว")
                    Catch ex As Exception
                        MsgBox("มีเลขรหัส rhgroup นี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                    End Try
                    connect.Dispose()
                    'connectlocal.Dispose()
                End If
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub

    Public Sub editMasrhgroupData()
        If rhgroupID > 0 And rhgroupDesc <> "" Then
            If TypeOf rhgroupDesc Is String Then
                Try
                    connect = CONDB.NewConnection()
                    'connectlocal = conlocal.NewConnection()

                    connect.ExecuteNonQuery("UPDATE masrhgroup SET rhgroupdesc = '" & rhgroupDesc & "', status = '" & rhgroupStatus & "' WHERE rhgroup = '" & rhgroupID & "'")
                    'connectlocal.ExecuteNonQuery("UPDATE MASRHGROUP SET RHGROUPDESC = '" & rhgroupDesc & "', STATUS = '" & rhgroupStatus & "' WHERE RHGROUP = '" & rhgroupID & "'")
                    MsgBox("ท่านได้ทำการแก้ไขข้อมูลหมู่เลือด RH เรียบร้อยแล้ว")
                Catch ex As Exception
                    MsgBox("มีเลขรหัสตำแหน่งนี้อยู่ในระบบอยู่แล้ว" & vbCrLf & ex.Message)
                End Try

                connect.Dispose()
                'connectlocal.Dispose()
            Else
                MsgBox("โปรดกรุณาระบุข้อมูลให้ถูกต้อง ต้องเป็นตัวอักษร")
            End If
        Else
            MsgBox("ท่านต้องทำการกรอกข้อมูลให้ครบถ้วน")
        End If
    End Sub
End Class
